Valid as of 12/09/2012


//FNzzzzRS JOB (FNzzzz),'RESPONSES IN', 
//     REGION=4096K,MSGCLASS=A,TIME=(,20)  
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
/*PASSWORD ???????
//************************************************************
//*                 F A S T E R                              *
//*     RETRIEVE INCOMING TRANSCRIPTS/RESPONSES              *
//************************************************************
//*  DELETES FILE TO BE CREATED IN NEXT STEP
//DELSTEP EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'FN.zzzz.RESPONSE.ALLFROM.MAILBOX'
DELETE 'FN.zzzz.TSCRIPT'
//************************************************************
//*                 PARAM CARD VALUES                        *
//*                                                          *
//*   GENERATE FILE     POS  1 -  3 =  SENDING INSTITUTION   *
//*    OF CURRENT                      TYPE:                 *
//*     RESPONSES AND                  'INT' - INTERDISTRICT *
//*      SUMMARIZE                     'SEC' - SECONDARY     *
//*       PROCESSING                   'PST' - POSTSECONDARY *
//*        PERFORMED                   'ALL' - ALL THE ABOVE *
//*                                    'AAA' - AUTOMATED AD- *
//*                                            MISSION APPS  *
//*                                    'ALA' - INTERDISTRICT,*
//*                                            SECONDARY,    *
//*                                            POSTSECONDARY,*
//*                                            AUTOMATED AD- *
//*                                            MISSION APPS  *
//*                     POS  4 - 13 =  'CURRENT   '          *
//*                                        SELECT NEW        *
//*                                        REQUEST RECORDS,  *
//*                                        OR                *
//*                                    'RETRANSMIT'          *
//*                                        SELECT RECORDS    *
//*                                        ALREADY DELIVERED *
//*                     POS 14 - 21 =  BEGIN DATE (MMDDYYYY) *
//*                     POS 22 - 29 =  END DATE (MMDDYYYY)   *
//*                     POS 30 - 36 =  SENDING INSTITUTION   *
//*                                     (= SPACES -OR- IF    *
//*                                      FILLED IN, ALLOWS   *
//*                                      ROWS TO BE RETRIEVED*
//*                                      BY SENDING INST)    *
//*                     POS 37 - 37 =  REJECTED RESPONSES    *
//*                                    MESSAGES              *
//*                                    X = RETURN ONLY X MSGS*
//*                                    R = RETURN NON-X MSGS *
//*                                    BLANK = RETURN ALL    *
//*                                      MSGS REGARDLESS OF  *
//*                                      MESSAGE TYPE        *
//************************************************************
//SRTS04   EXEC PGM=IKJEFT01
//PARAM    DD *
ALLCURRENT
//RSPFILE  DD DSN=FN.zzzz.RESPONSE.ALLFROM.MAILBOX,
//    DISP=(NEW,CATLG),UNIT=SYSDA,STORCLAS=SCFNSTD,
//    DCB=(RECFM=FB,LRECL=1020,BLKSIZE=0,DSORG=PS),
//    SPACE=(TRK,(90,50),RLSE)
//RSSUMRY  DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSOUT   DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSERR   DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//SYSTSIN  DD *
 DSN SYSTEM(DSN)
 RUN  PROGRAM(SRTS04) PLAN(FNSRTS04) -
      LIB('FRN.DISTRICT.LINKLIB')
 END
//*
//**************************************************************
//*                 PARAM CARD VALUES                          *
//*                                                            *
//*   PRINT              POS 1 -  8 = 'SRTS12IS'               *
//*    SECONDARY             9 -  9 = OUTPUT TYPE              *
//*     TRANSCRIPT                    'P' - PERMANENT RECORD   *
//*                                         (TRANSCRIPT) ONLY  *
//*                                   BLANK - PERMANENT RECORD *
//*                                         (TRANSCRIPT) AND   *
//*                                         CATAGORY B         *
//*                         10 - 12 = NUMBER OF LINES PER      *
//*                                      PAGE, 3-DIGIT         *
//*                                      NUMBER OR BLANKS      *
//*                                      (DEFAULT = 49)        *
//*                         13 - 13 = BANNER PAGE NEEDED       *
//*                                   BLANK = NO BANNERS       *
//*                                   A NUMBER (1 -9)          *
//*                                   MEANS PRINT THAT MANY    *
//*                                   BANNER PAGES WHEN A      *
//*                                   NEW ADDRESSEE IS         *
//*                                   ENCOUNTERED.             *
//*                         14 - 14   GRD SCALE/CRS FLAGS      *
//*                                   BLANK=DON'T SUPPRESS     *
//*                                   S=SUPPRESS               *
//**************************************************************
//SRTS12IS EXEC PGM=IKJEFT01,
//         COND=((1000,GE,SRTS04),(1060,EQ,SRTS04),
//         (2000,LT,SRTS04))
//PARAM    DD *
SRTS12IS       Y
//TRANRECS DD DSN=FN.zzzz.RESPONSE.ALLFROM.MAILBOX,
//            DISP=SHR
//SYSPRINT DD SYSOUT=A
//SYSOUT   DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//SYSERR   DD SYSOUT=A
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//TSCRIPT  DD DSN=FN.zzzz.TSCRIPT,
//    DISP=(NEW,CATLG),UNIT=SYSDA,STORCLAS=SCFNSTD,
//    DCB=(RECFM=FB,LRECL=133,BLKSIZE=0,DSORG=PS),
//    SPACE=(TRK,(50,10),RLSE)
//HLTHRECS DD DUMMY
//HLTHLINE DD DUMMY
//SYSTSIN  DD *
 DSN SYSTEM(DSN)
 RUN PROGRAM (SRTS12IS) PLAN(FNSR12I) -
    LIB('FRN.DISTRICT.LINKLIB')
 END
//